home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys / sem.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  780 b   |  41 lines
  1. sub SEM_UNDO {010000;}
  2. sub GETNCNT {3;}
  3. sub GETPID {4;}
  4. sub GETVAL {5;}
  5. sub GETALL {6;}
  6. sub GETZCNT {7;}
  7. sub SETVAL {8;}
  8. sub SETALL {9;}
  9. sub GETKEYS {10;}
  10. if (defined &KERNEL) {
  11. }
  12. sub PSEMN {( &PZERO + 3);}
  13. sub PSEMZ {( &PZERO + 2);}
  14. sub SEMVMX {32767;}
  15. sub SEMAEM {16384;}
  16. sub SEM_A {0200;}
  17. sub SEM_R {0400;}
  18. if (!defined &SEMMNI) {
  19.     eval 'sub SEMMNI {10;}';
  20. }
  21. if (!defined &SEMMNS) {
  22.     eval 'sub SEMMNS {60;}';
  23. }
  24. if (!defined &SEMUME) {
  25.     eval 'sub SEMUME {10;}';
  26. }
  27. if (!defined &SEMMNU) {
  28.     eval 'sub SEMMNU {30;}';
  29. }
  30. if (!defined &SEMMAP) {
  31.     eval 'sub SEMMAP {30;}';
  32. }
  33. if (!defined &SEMMSL) {
  34.     eval 'sub SEMMSL { &SEMMNS;}';
  35. }
  36. if (!defined &SEMOPM) {
  37.     eval 'sub SEMOPM {100;}';
  38. }
  39. sub SEMUSZ {($sizeof{'struct sem_undo'}+$sizeof{'struct undo'}* &SEMUME);}
  40. 1;
  41.